3.38 \(\int \frac {\cos (a+\frac {b}{x})}{x^3} \, dx\)

Optimal. Leaf size=30 \[ -\frac {\cos \left (a+\frac {b}{x}\right )}{b^2}-\frac {\sin \left (a+\frac {b}{x}\right )}{b x} \]

[Out]

-cos(a+b/x)/b^2-sin(a+b/x)/b/x

________________________________________________________________________________________

Rubi [A]  time = 0.02, antiderivative size = 30, normalized size of antiderivative = 1.00, number of steps used = 3, number of rules used = 3, integrand size = 12, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.250, Rules used = {3380, 3296, 2638} \[ -\frac {\cos \left (a+\frac {b}{x}\right )}{b^2}-\frac {\sin \left (a+\frac {b}{x}\right )}{b x} \]

Antiderivative was successfully verified.

[In]

Int[Cos[a + b/x]/x^3,x]

[Out]

-(Cos[a + b/x]/b^2) - Sin[a + b/x]/(b*x)

Rule 2638

Int[sin[(c_.) + (d_.)*(x_)], x_Symbol] :> -Simp[Cos[c + d*x]/d, x] /; FreeQ[{c, d}, x]

Rule 3296

Int[((c_.) + (d_.)*(x_))^(m_.)*sin[(e_.) + (f_.)*(x_)], x_Symbol] :> -Simp[((c + d*x)^m*Cos[e + f*x])/f, x] +
Dist[(d*m)/f, Int[(c + d*x)^(m - 1)*Cos[e + f*x], x], x] /; FreeQ[{c, d, e, f}, x] && GtQ[m, 0]

Rule 3380

Int[((a_.) + Cos[(c_.) + (d_.)*(x_)^(n_)]*(b_.))^(p_.)*(x_)^(m_.), x_Symbol] :> Dist[1/n, Subst[Int[x^(Simplif
y[(m + 1)/n] - 1)*(a + b*Cos[c + d*x])^p, x], x, x^n], x] /; FreeQ[{a, b, c, d, m, n, p}, x] && IntegerQ[Simpl
ify[(m + 1)/n]] && (EqQ[p, 1] || EqQ[m, n - 1] || (IntegerQ[p] && GtQ[Simplify[(m + 1)/n], 0]))

Rubi steps

\begin {align*} \int \frac {\cos \left (a+\frac {b}{x}\right )}{x^3} \, dx &=-\operatorname {Subst}\left (\int x \cos (a+b x) \, dx,x,\frac {1}{x}\right )\\ &=-\frac {\sin \left (a+\frac {b}{x}\right )}{b x}+\frac {\operatorname {Subst}\left (\int \sin (a+b x) \, dx,x,\frac {1}{x}\right )}{b}\\ &=-\frac {\cos \left (a+\frac {b}{x}\right )}{b^2}-\frac {\sin \left (a+\frac {b}{x}\right )}{b x}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]  time = 0.05, size = 29, normalized size = 0.97 \[ -\frac {b \sin \left (a+\frac {b}{x}\right )+x \cos \left (a+\frac {b}{x}\right )}{b^2 x} \]

Antiderivative was successfully verified.

[In]

Integrate[Cos[a + b/x]/x^3,x]

[Out]

-((x*Cos[a + b/x] + b*Sin[a + b/x])/(b^2*x))

________________________________________________________________________________________

fricas [A]  time = 0.75, size = 33, normalized size = 1.10 \[ -\frac {x \cos \left (\frac {a x + b}{x}\right ) + b \sin \left (\frac {a x + b}{x}\right )}{b^{2} x} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cos(a+b/x)/x^3,x, algorithm="fricas")

[Out]

-(x*cos((a*x + b)/x) + b*sin((a*x + b)/x))/(b^2*x)

________________________________________________________________________________________

giac [A]  time = 0.39, size = 49, normalized size = 1.63 \[ \frac {a \sin \left (\frac {a x + b}{x}\right ) - \frac {{\left (a x + b\right )} \sin \left (\frac {a x + b}{x}\right )}{x} - \cos \left (\frac {a x + b}{x}\right )}{b^{2}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cos(a+b/x)/x^3,x, algorithm="giac")

[Out]

(a*sin((a*x + b)/x) - (a*x + b)*sin((a*x + b)/x)/x - cos((a*x + b)/x))/b^2

________________________________________________________________________________________

maple [A]  time = 0.04, size = 42, normalized size = 1.40 \[ -\frac {\cos \left (a +\frac {b}{x}\right )+\left (a +\frac {b}{x}\right ) \sin \left (a +\frac {b}{x}\right )-a \sin \left (a +\frac {b}{x}\right )}{b^{2}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(cos(a+b/x)/x^3,x)

[Out]

-1/b^2*(cos(a+b/x)+(a+b/x)*sin(a+b/x)-a*sin(a+b/x))

________________________________________________________________________________________

maxima [C]  time = 1.69, size = 51, normalized size = 1.70 \[ -\frac {{\left (\Gamma \left (2, \frac {i \, b}{x}\right ) + \Gamma \left (2, -\frac {i \, b}{x}\right )\right )} \cos \relax (a) - {\left (i \, \Gamma \left (2, \frac {i \, b}{x}\right ) - i \, \Gamma \left (2, -\frac {i \, b}{x}\right )\right )} \sin \relax (a)}{2 \, b^{2}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cos(a+b/x)/x^3,x, algorithm="maxima")

[Out]

-1/2*((gamma(2, I*b/x) + gamma(2, -I*b/x))*cos(a) - (I*gamma(2, I*b/x) - I*gamma(2, -I*b/x))*sin(a))/b^2

________________________________________________________________________________________

mupad [B]  time = 0.28, size = 30, normalized size = 1.00 \[ -\frac {\cos \left (a+\frac {b}{x}\right )}{b^2}-\frac {\sin \left (a+\frac {b}{x}\right )}{b\,x} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(cos(a + b/x)/x^3,x)

[Out]

- cos(a + b/x)/b^2 - sin(a + b/x)/(b*x)

________________________________________________________________________________________

sympy [A]  time = 1.80, size = 31, normalized size = 1.03 \[ \begin {cases} - \frac {\sin {\left (a + \frac {b}{x} \right )}}{b x} - \frac {\cos {\left (a + \frac {b}{x} \right )}}{b^{2}} & \text {for}\: b \neq 0 \\- \frac {\cos {\relax (a )}}{2 x^{2}} & \text {otherwise} \end {cases} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cos(a+b/x)/x**3,x)

[Out]

Piecewise((-sin(a + b/x)/(b*x) - cos(a + b/x)/b**2, Ne(b, 0)), (-cos(a)/(2*x**2), True))

________________________________________________________________________________________